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SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
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ed bad Aad tu had 
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aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
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ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 
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CCCCCCCC «HH HH MM MM cccccccc MM MM BBBBBBBB LL IIIIII NN NN 
CCCCCCCC =H HH MM MM cccccccc MM MM BBBBBBBB LL III! NN NN 
cc HH HH MMMM MMMM CC MMMM 6MMMM «6BB BB LL I] NN NN 
cc HH HH MMMM MMMM CC MMMM MMMM «6BB BB LL I] NN NN 
cc HH HH MM MM MM CC MM MM MM «OBB BB LL I] NNNN NN 
cc HH HH MM MM MM «(CC MM MM UMM «6OBB BB LL I] NNNN NN 
cc HHHHHHHHHH =MM MM CC M MM B8B888B8B LL I] NN NN NN 
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CCCCCCCC =H HH MM MM cccccccc MM MM BBBBBBBB LLLLLLLLLL IIIII1 NN NN 
CCCCCCCC HH HH MM MM cccccccc MM MM BBBBBBBB LLLLLLLLLL IIIII1 NN NN 
LL IIIII] SSSSSSSS 
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LL I] SS 
LL I] SS 
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EDTSCHMCMBLIN = combine Lines 15-Sep-1984 AX-11 Bliss-32 v4.0-74 Page 1. ED 
14- oben 9 $3; 38: 34 HED T SREICHACHOL IN: N.BLI; . (1) vO 
9001 XTITLE "EDTSCHMCMBLIN = combine Lines’ 
0 ¢ MODULE EDTSCHMCMBLIN ( ' Combine Lines 
903 IDENT = 'v04-000' ' File: CHMCMBLIN.BLI Edit: J8S1017 
= 
005 1 BEGIN 
00 


eee AAA AAAAAKAAAEAAAEAAEEAEA HEH TREAT AAARARAAAAeeeeeeeeeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og 
'# ONLY IN ACCORDANCE oy TH Ne OF SUCH Ti tt AND age AL 4,4 


So 
oO 


ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a 
® 
e 
® 
® 
® 
® 
® 
® 
& 
ie TRANSFERRED. . 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: ee okat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!# DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR > igmmpaabl OF ITS 
NOT SUPPLIED BY DIGITAL 


VeRO e RARER AERA ERATE 


+ 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


SoOSOoCSCOCSOooooooooooooooooooocoo 
AUS WN O OONOAOUES WN HO OONOAUS UN OOONG 


WANA AAAI PIPININININININIDS 2 2 PO OO OO OOO 


This module combines the current Line with the one 


PVA S BB BBE EE BE BWANA AAI AAI UI RPO NPONININININPODY 2 2 OS 
NOAUE WN OC OD NOA UE WN 0 ODNOUE WN (OO ODNAUEWN (OO ONOUES WN OVOONOU EWN 
eed ee ed ee ee ee ee ee ce eed ee ee ee ee ee ee ee ce ee ce ce i ee ee ee ee ed ee ee ce ee ee ee ee ee ee ee 


Be Be Oe Be Se Se Oe Be Se Se Se Se Fe Se Fe Se Se Ge Se Se Se Se Se Se Se Fe Se Os os Se Se Se Oe Os Oe Oe Oe Ge Se Se Oe Oe Oe Oe Se Oe Oe Se Oe Se HSH Se we Se Se oe 


' 

1¢ 

' 

! 

| 

| | 

' | 
R44 immediately above it. | 
44 ENVIRONMENT: Runs at any access mode - AST reentrant 
0041 AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
D048 | MODIFIED BY: | 
045 1 | 1-001 - Original. DJS 04-Feb-1981. This module was created b | 
0046 } extracting the routine EDTS$CO OMB_LN a" module CHANGE.BLI. 
0047 ! 1-008 Regular ze headers. JBS 25-Feb-19 
0048 ! 1-005 = Fix ao dule name. JBS 02-Mar- ht 
0049 ! 1-004 = Use the ASSERT macro. JBS Oj~dun-198) 
0050 ! 1-005 - LOTs$seL. RNGPOS can have values -1 4 and 1. JBS 02-Jun-1981 
0051 i 1-006 - Use new fessage codes. JBS 04-Aug-19 
4 1-007 - an yo where. you cannot combine. ines because length >255. 

' -Oct-1 
0084 : 1-008 - New screen update logic. JBS Ine. S18 26- 

055 ! 1-009 = Make call 1886 wew'¥ eob in Line. STS 22-Sep-1 

0056 !' 1-010 = Remove fers for new screen yod ate tegice. 2 Bs 29-Sep-1982 
0057 ! 1-011 = Move call to SED TSSARK LNCHG. JBS 27-0ct-198 


ERT SENACRBL IN 


EDTSCHMCMBLIN - 


—) i) st 


combine Lines 


Change order of oper 
Change call to EDTSSMRK_LNCHG 
Add special cases for empty i 


i 


ine 
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nSep= 1986 f 


ations to improve scree 
NBs $7 


J -Dec- 
s, to impro 


Add parameter to suppress special cases. J 
Don't delete the current Line if it i 
Improve the appearance of the Listing. JBS 


s of z 


333853¢ | HEDT Seed ChAcmeL YN:8c 1; 
Hoygdat ing. JBS 01-Dec-1982 


xe gergen vedet ing. JBS 28-Dec-1982 


ero length. JBS 29-Dec-1982 
13-Jun-1983 
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EDTSCHMCMBLIN = combine Lines 
Declarations 


Sees 


SRST SAAD ANANRAARNROOGOOOS 


Ww ee Le ea 


—OODONAVUFSWONOUS WI -O-"O 


335 


0668 
0664 


tt ss 2 a = a 2 a as 2 = 1 tt a 


SSBTTL ‘Declarations’ 
! TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSCOMB_LN : NOVALUE; 


INCLUDE FILES: 
REQUIRE 'EDTSRC:EDTREQ';: 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
: In the routine 


pa9be iaideice — LeDTssaClcMmCMBL IN-BL{ 74 test | 


! Combine the current Line with the one immediately above it. 


| 


H 14 
EDTSCHMCMBLIN EDTSCHMCMBLIN = combine Lines 15-Sep-1984 23:48:34 AX-11 Bliss-32 V4.0-74 Page 4 
04-000 EDISSCONB EN = combine Lines 12-80-1984 13:33:32 feDT.sRe CHMCMBLIN.BLI; “ (3) 
: 190 670 1 RSBTTL "EDTSSCOMB_LN - combine Lines’ | : 
; 19¢ ote 1 GLOBAL ROUTINE EDTSSCOMB_LN ( ' Combine Lines ; 
: ie th : , a : ! 1 = optimize based on Line Lengths | : 
: 105 675 1 ; 
: 198 6 1 4+ : 
; 4 tA of ! } FUNCTIONAL DESCRIPTION: : 
3 1% aes I } ah eget ine combines the current Line with the one immediately 
an 68) 1 oui 0 
; 116 6 § 1 ! FORMAL PARAMETERS: : 
oi 06 9 ; 
; 112 be : : } LEN_OPT 1 = do optimizations based on Line lengths : 
: 116 Os8¢ 1! IMPLICIT INPUTS: ; 
3; 17 0687 1! 3 
; 118 0688 1! EDTSS$L_LNOO 3 
; 119 0689 1! EDTS$T_LN_BUF ; 
; 130 0690 1! EDTSSA_LN_END 3 
3 «(Yer 0691 1! EDTS$G_LN_LEN $ 
; \s¢ 0692 1! EDTSSA_WK_LN é 
52 Se 0695 1! 3 
: 126 0694 1 ! IMPLICIT OUTPUTS: 3 
; 32s 0695 1! : 
> 126 0696 1! EDTSSA_LN_PTR 3 
: 127 0697 1 | EDTS$$A_SEC_POS | ; 
; 128 0698 1! 3 
; 1? 0699 1 ! ROUTINE VALUE: ; 
; 130 0700 1! : 
3 131 0701 1! NONE ; 
; 136 0702 1! : 
. te 0705 1 ! SIDE EFFECTS: ; 
> 134 0706 1! : 
3; 139 0705 1! NONE PF 
; 136 0706 1! 3 
: 137 0707 1 !-- 3 
; 138 0708 1 : 
: 139 0709 BEGIN | ; 
: 140 0710 : 
> 141 0711 EXTERNAL ROUTINE ; 
2 rs setae Pith: MONE fon peed dente 0: 
Py : o . u | e 
; «(144 bp14 EDTSSUPD-LNLEN : NOVALUE, ' Update the len th of the current Line 3 
3; 145 0715 EDTSSDEL_CURLN, ' Delete a Line from buffer : 
i an ESTERS -erttn ie at | i 
; re Org EDTS$RPC_CHGDLN : NOVALUE; i Replace a changed Line | : 
: 150 oF 0 EXTERNAL F 
s 693) 721 EDTSS$T_LN_BUF, ' Current Line buffer | : 
; 13¢ 7 § EDTSSA_LN_PTR, ! Current character pointer 3 
3; 15 7 EDTSSA_LN_END, ! End of current Line pointer 3 
3 13 g : ep TeSG-LNLEN. ! Length of current Line : 
; 156 726 EDTS$A~Wk_CN : REF LIN_BLOCK; ! Current Line pointer | , 
| 


14 
HMCMBLIN = combine Lines 14.36 
C L 14-Se 


N= Combine Lines =198e 42:08:26 LeDT-sacenmcheuIw:oLt 1 rage (35 


EDT. SRCJCHMCMBLIN.BLI; 


ERT SC IACRaL In 


E 
E 
132 | 
1+ 
59 : Declare the message codes to be used. 
2 0 MESSAGES ((LINEXC255)); 
8 LOCAL | 
8 EOB, 
LEN; 


'¢ | 
} Remember if we are at the end of the buffer. 


EOB = (.EDTSSA_WK_LN EQLA EDT$$Z_E0B_LN); 
Move back a Line, give up if it fails. 


IF ( NOT EDTSSRD_PRVLN ()) THEN RETURN; 


1+ 
Get length of add on Line. 


LEN = -EDTSSA_WK_LN CLIN_LENGTHI; 
! Make sure the two do not exceed 255 characters. 


IF ((.EDT$$G_LN_LEN + .LEN) GTR 255) 
THEN 
BEGIN 
EDTSSMSG BELL (EDTS_LJNEXC255); 
EDTSSRD_AXTLN (); 
RETURN: 


'+ 
If the add-on Line is empty, just delete it. 


LISPELSSSSLEAP ALAS ISSA NISSEN OE 


IF ((.LEN EQL 0) AND .LEN_OPT) 
THEN 


a aaa a ek at kt tk at td 2 a ts = ot 2 2 a YS Ss 


Mroronoror 
ARANLSSS 


BEGIN 
EDTSS$DEL_CURLN (); 
RETURN; 


'¢ 
: The add-on l'ne is not empty, or Length optimization is not permitted. Move the current Line over. 


EDTS$A_LN_PTR = CHSPTR (EDTS$T_LN_BUF, .LEN); | 
EDTSSCPY_MEM (.EDT$$G_LN_LEN, CHSPTR (EDTS$T'LN_BUF), .EDTSSA_LN_PTR); | 


14 
: Move in the text from the previous Line. 


EDTSSCPY_MEM (.LEN, EDTSSA_WK_LN CLIN TEXT], CHSPTR (EDTSS$T_LN_BUF)); 
EDTSSMRK-LNCHG (SCR_EDIT_MODIFY, .LENT; 


Be Be Se Se Oe Be Be we Be Se Se Se Ge Ge Se Ge Se Ge Ge Be Ge Ge Ge Ge Ge Se Ge Ge Fe See Se Se He Ge Ge Se Se FF Se Ss SH Ss Se Se Se Se Se Ge Se Se Se Se ee Se Seas 


Rohorofenofofen 
SELF 


— ot 
wn—o 
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EDTSCHMCMBLIN EDTSCHMCMBLIN = combine Lines 18-56 -1984 748:34 AX-11 BLiss-32 V4.0-742 Page 

v04= EDTSSCOMB_LN = combine Lines 12-9081 9be $3:58:3¢ EDT. SRCJCHMCMBLIN.BLI;1 . (38 
: 216 784 4 3 
3 1? 4 5 } Update the length field. : 
: i$ 7 $ EDTSSUPD_LNLEN (.LEN); ; 
; 18 of $ © EDTSSRPL_CHGDLN (); : 
3 21 144 Delete the first Line unless it is just before E08. $ 
: 079 | ; 
; $798 IF (( NOT .€08) OR (.EDTS$G_LN_LEN EQL 0)) ; 
; 4 0794 THE 3 
3 5 8732 BEGIN 3 
3 6 796 3 
; fad IF ( NOT .E0B) THEN EDTSSRD_NXTLN (); 3 
; 329 9799 EDTSSDEL_CURLN (); : 
: 230 800 ; : 
; 231 0801 IF ( NOT .E0B) THEN EDTSS$RD_PRVLN (); : 
; sae Bang 3 3 
3s 23 080 § END; | 3 
3 Sae 0804 | 3 
; 235 0805 1 END; ! of routine EDT$$COMB_LN | : 
-TITLE EDTSCHMCMBLIN EDTSCHMCMBLIN - combine Lines | F 
IDENT \V04-000\ | ; 
-EXTRN EDTSSMSG_BELL, EDTSSMRK_LNCHG : 
-EXTRN EDTSSUPD"LNLEN, EDT$S$DEC_CURLN ; 
-EXTRN EDTSSRD_PRVLN, EDTS$RD_NRTLN 3 
.EXTRN EDTS$$RPC_CHGDLN : 
-EXTRN EDTSST_LA_BUF, EDTS$A_LN_PTR | ; 
.EXTRN EDTSS$A_LN-END, EDTS$$G_LN_LEN : 
EXTRN EDTS$$Z_E08 tN EDTS$A_WK_LN 3 
EXTRN EDT$_LINEXC255 ; 
-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 3 
OFFC 00000 -ENTRY EDTSSCOMB_LN. Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0672 : 
5B 00000000G 00 9€ 00002 MOVAB EDT$$RD PRVLN, R11 3 3 
5A 000000006 06 9E 00009 MOVAB EDTS$$T_CN_BUF, : : 
59 000000006 00 9€ 00010 MOVAB EDTS$G_LN-LEN, R9 : ; 
2 SHE 4 § 9E Bei! MOVAB EDTSSA_WK_LN, R8 : ; 
1 000000006 9e OOe MOVAB €EDTS$$Z~EOB_LN, R1 : 0740 | : 
0 »d4 000 CLRL RO $ 3 
51 68 D1 00027 CMPL § EDTSSA_WK_LN, R1 : : 
Q 12 0002A BNEG ='1$ : | : 
D6 0002C INCL R 3 3 
57 50 DO OO0ZE 18: MOVL RO, E0B ; | ; 
6B 09 FB 99 1 CALLS 40, EDTSSRD_PRVLN : 0745 : 
01 0 FB 000% BLBS RO, 28 | : 
50 68 D0 00058 28: — MOVL  EDTSSA UK_LN, RO : 0750 | ; 
56 A B MOV ZBL (RO), CEN : : 
50 69 6 C1 00 C ADDLS LEN, EDISSG_LN_LEN, RO > 0755 | : 
QOOOOOFF &F 0 01 0004 PL RO, #255 : : 


| 


4 
4 


pa19be $2:08:2 
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HMCMBLIN = combine Lines 


COMB_LN 


VA 


$ 
$ 


z 
_ 

a 
£ 
rs) 
rS 
vo 
eh 
om 
w 


V 


000000006 


“EDT$SDEL_CURLN 


OPT, 4$ 


OO Oe ONTO OD4UMODG 
TT OOOO OPr-f-fF- 00000000 


NOMOOINVCS Os -“CDMOWD OOMOOOOnvaAaOvOooOrw 
—O4 LOOK WHOVYVOWNONO Oe OF & WOR Wee Wa © 


WLLO LOODOO WOK Or Or-Fr-OCOOCr-O 
NOLO NKNOWOOMMOOMOOMVO-NOOMS 


wT 
Oo 


ao 
oo 


000000006 


0 
EDTSST_LN_BUF, (RO) 
R 


T$$T_LN_BUF 
LNLEN 
CHGDLN 

_CURLN 


#0, EDTSSRD_PRVLN 


¢ 


LEN, 


EDTSSA_LN_PTR 


NED 


i 
ROY 


Tt 
5$ 
$$G_LN_LEN 


EOB, 6$ 
7$ 


7 
EDTS$RD_NXTLN 


$6 
$A 
EDTSSUPD 
#0, EDTSSRPL 
EOB 
EDT 
7$ 
#0, 
#0, EDTSSDEC 
EOB, 


RET 


-EDTSCODE + 0000 


56 
50 000000006 
00000000G 00 
S44 4 45 
Routine Base: 


00000000 
G 
000000006 


00000000 


60 


6A 
! <BLF /PAGE> 


000000006 00 
197 bytes, 


3; Routine Size: 


EDTSCHMCMBL IN 
v04-000 


Lexenes/CPU-Rin: 


B}- 


CHMCMBLIN = combine Lines sep - 138% 
SCOMB_LN = combine Lines 12-308 
1 END 
0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
197 NOVEC,NOWRT, RD, EXE, SHR, 
Library Statistics 
pennies Symbols «conees= 
Total Loaded Percent 
T.SRCJEDT.L32;1 377 10 2 
T.SRCIPSECTS.L32;1 2 1 50 


COMMAND QUALIFIERS 


BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/L1S=L1SS: CHACRBL IN/0BJ=08J$ : CHACHBL IN MSRC$: CHMCMBL IN.BLI/UPDATE=(ENH$:C 


197 code + 0 data bytes 
00:13.5 


87 pages 


ey commen’ 


EDT.SRC CH mci 
! of module EDTSCHMCMBLIN 


AH-BT13A-SE 
V4.0 


VAX/VMS 


0130 


